home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-12-11 | 1.1 KB | 33 lines | [TEXT/ttxt] |
- --<<<
-
- filein theScriptDir name:"widgint.sx"
-
- module WidgetBuild
- uses ScriptX, WidgetInterface
- end
-
- in module WidgetBuild
-
- global moduleName := @Widgets
- global saveSource := false
-
- filein theScriptDir name:"widgbase.sx" module:moduleName debugInfo:saveSource
- filein theScriptDir name:"button.sx" module:moduleName debugInfo:saveSource
- filein theScriptDir name:"radiobtn.sx" module:moduleName debugInfo:saveSource
- filein theScriptDir name:"label.sx" module:moduleName debugInfo:saveSource
- filein theScriptDir name:"smallte.sx" module:moduleName debugInfo:saveSource
- filein theScriptDir name:"scrlbar.sx" module:moduleName debugInfo:saveSource
- filein theScriptDir name:"listbox.sx" module:moduleName debugInfo:saveSource
- filein theScriptDir name:"scrltxed.sx" module:moduleName debugInfo:saveSource
- filein theScriptDir name:"popupmnu.sx" module:moduleName debugInfo:saveSource
-
- (
- local lc := new LibraryContainer dir:theScriptDir path:"widgets.sxl" name:"Widgets"
- append lc (GetModule @WidgetInterface)
- append lc (GetModule moduleName)
- lc.startupAction := ( lc -> for i in lc do load i)
- close lc
- )
-
- -->>>
-